home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_202_App < prev    next >
Encoding:
Modula Implementation  |  1992-04-08  |  2.1 KB  |  113 lines
  1. (* %filename% -- application class *)
  2. (* Created %date% %time% by AppMaker *)
  3.  
  4. IMPLEMENTATION MODULE U%appname%;
  5.  
  6. FROM Types IMPORT
  7.     INT16;
  8. FROM Object IMPORT
  9.     GENERATE, MEMBERTEST;
  10. FROM UObject IMPORT
  11.     TObject;
  12. FROM Menus IMPORT
  13.     AddResMenu;
  14. FROM UFailure IMPORT
  15.     FailNIL;
  16. FROM UMenuSetup IMPORT
  17.     CmdNumber,
  18.     Enable, MAGetMenu, CmdToMenuItem;
  19. FROM UMacApp IMPORT
  20.     gNoChanges,
  21.     TApplication, TDocument, TCommand;
  22. FROM U%appname%Doc IMPORT
  23.     T%appname%Doc;
  24. FROM ResourceDefs IMPORT
  25.     %for each menu gen importItems%
  26. mFontID;
  27. %for each dialog gen uses%
  28.  
  29. %for each menu gen usesDialogs% 
  30.  
  31. (*${QINSPECTOR*)
  32. FROM SYSTEM IMPORT
  33.     ADR;
  34. FROM UMacAppUtilities IMPORT
  35.     bClass, bObject,
  36.     DoToFieldMETHOD;
  37. (*$}*)
  38.  
  39. CONST
  40.     kDocFileType    = 'TEXT';     (*main File-type for this app*)
  41.  
  42. (*SEG AInit*)
  43. (*----------*)
  44. METHOD T%appname%App.I%appname%App;
  45. BEGIN
  46.     INHERITED IApplication (kDocFileType);
  47.     %for each menu gen addResMenu%
  48.  
  49.     %for each dialog gen createModeless%
  50.  
  51. END I%appname%App;
  52.  
  53. (*SEG AOpen*)
  54. (*----------*)
  55. METHOD  T%appname%App.DoMakeDocument (itsCmdNumber: CmdNumber): TDocument;
  56. VAR
  57.     %appname%Doc:    T%appname%Doc;
  58. BEGIN
  59.     GEN (%appname%Doc);
  60.     FailNIL (%appname%Doc);
  61.     %appname%Doc.I%appname%Doc;
  62.     RETURN %appname%Doc;
  63. END DoMakeDocument;
  64.  
  65. (*SEG ARes*)
  66. (*----------*)
  67. METHOD T%appname%App.DoSetupMenus;
  68. BEGIN
  69.     INHERITED DoSetupMenus;
  70.     
  71.     %for each menu gen enableItems%
  72.  
  73. END DoSetupMenus;
  74.  
  75. (*SEG ASelCommand*)
  76. (*----------*)
  77. METHOD  T%appname%App.DoMenuCommand (aCmdNumber: CmdNumber): TCommand;
  78. VAR
  79.     doMenuCommand:    TCommand;
  80.     menu:            INT16;
  81.     item:            INT16;
  82. BEGIN
  83.     doMenuCommand := gNoChanges;
  84.     IF aCmdNumber < 0 THEN
  85.         CmdToMenuItem (aCmdNumber, menu, item);
  86.     ELSE
  87.         CASE aCmdNumber OF
  88.         | 0:
  89.             ;
  90.         %for each menu gen handleItems%
  91.      
  92.         ELSE
  93.             doMenuCommand := INHERITED DoMenuCommand (aCmdNumber);
  94.         END(*CASE*);
  95.     END(*IF*);
  96.     RETURN doMenuCommand;
  97. END DoMenuCommand;
  98.  
  99. %for each menu gen doItems%
  100. (*${QINSPECTOR*)
  101. (*SEG AFields*)
  102. (*----------*)
  103. METHOD T%appname%App.Fields (DoToField: DoToFieldMETHOD);
  104. BEGIN
  105.     DoToField ("\LT%appname%App", NIL, bClass);
  106.     %for each dialog gen DoToField%
  107.  
  108.     INHERITED Fields (DoToField);
  109. END Fields;
  110. (*$}*)
  111.  
  112. END U%appname%.
  113.